
Editrice J .soli Con lo colloborozione del Gruppo Editoriale Jackson 































Guida per l'input dei programmi versioni 
VIC 20 e C64 


Notale cne I listati contengono paro¬ 
le' racchiuse tra parentesi graffe I 
Tali parole rappresentano caratteri ai 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di .. 
volte che quel tasto deve essere pre¬ 
muto Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 


temporaneamente ai tasto COMMO¬ 
DORE inoltre, se tra parentesi graffa 
si trova un carattere alfabetico "so¬ 
nano" questo dovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati seri 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur- 


da 

101 deve essere premuto con- 

sore o dei colori. 
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Per ricevere sii arretrali di Jl/J'J compilare il seguente tagliando: 

.r.. 

J ». Compilare ed inviare in busta chiusa a: 

.SOTt viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-' 


Cognome _ 
Indirizzo _ 


CAP- 


Prov. — 


Desidero ricevere i seguenti numeri arretrati di 

hìtrjii 


slvjj dedicato a_ 

a L 2 000 cad. per un totale di L 


_ Anno _ 
Anno _ 


□ assegno allegato 

K 


□ contanti allegati 
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Stop Bug 

Se non l'hai sia fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bus per il tuo computer. 
Questo prosramma ti permette, 
Una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola "-.rem" seguita da un nume¬ 
ro, detto checksum,- non copiare 
questa parte della linea, che serve 
solo per tya informazione . Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ’ per 
Prmt) 

Usando Stop Bug tieni conto dei 
fatto che sii spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Prmt 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate 
Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni lima. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca, al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma 
Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
90) oppure Run/Stop e Reset (su 
06 e Plus/4) Per riattivarlo batti 

SYS PEEK(56)’55ó per il VIC 50; 
SYS 16158 per il 06 e il PLUS/4; 
SYS 40704 per il C 64 




STOP BUG per C64 c VIC 90 


100 POKE55,0 :POUF. 56,PEEK(56)- 1 :R= PEEK(56)*256 :PRINT"(CLRl 
ATTENDERE PREGO..." 

1 ! 0 FORI=RTOR*l32 : READA :CK=CK*A:IFA=999THENA=R/2 56 
120 POKEI,A:NF.XT 

130 IFCK0226B9THENPRINT" (GIU ' (ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"(CLR(I 2 GlU')fRVS]STOP BUG(OFF} ATTIVAT 
0.": NEW 

200 DATAI 73,36,3,201,32,208,1,96,141 
210 DATA33,999,173,37,3,141 , 34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 

2 30 DATA 169,0,1 33,254,96,32,87,241 , 133 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254,'65,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,210,255,1 65,21 4,1 41 , 251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,210,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,210,255,1 66,254,1 69,0 
310 DATAI 33,254,1 72,33,999,1 92,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 OATA251 , 3,1 33,21 4,76,55,999 


STOP BUG per C16 e PLUS/* 

100 POKE55,0 :POKE56,63 :PRINT"(CLRÌATTENDERE PREGO..." 

1 10 FORI = 1612 8TO16 260 : READA :CK=CK+A:POKEI,A:NEXT 

120 I FCKO1 4 248T1IENPRINT" (GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA" : END 

130 SYS16128:PRINT"(CLR] [ 2 GIU 1 )(RVSI STOP BUG(OFF 1 ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201 , 32,208,1 ,96,1 41 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32 , 1 4 1 ,34,3, 169, 63,1 41 *. 35.3 

2 30 DATAI 6 9,0,1 3 1,6,96,32,232,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 

2 50 DATAI 7,201 ,32,240,5,24,101,6,133 
260 DATA6,1 65,3,1 66,4 , 1 64,5,40,96 

270 DATAI 69,1 3,32,21 0,255,J 65,205,1 41 ,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,21 0,255,1 69,1 8,32,2 10,255 
300 DATAI 69,58,32,21 0,255,1 66,6,1 69,0 
310 DATAI 33,6,1 72,33,63,1 92,232,208,6 
320 D ATA32,95,164,76,'17,63,32,7,208 

3 30 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251,3,133,205,76,55,63 


Il mostro 


Joystick; 


In questo fantastico gioco vestirete 
i panni di un simpatico mostro che 
si trova rinchiuso in una stanza, e 
che deve cercare di mangiare il 
maggior numero possibile di pillo¬ 
le energetiche (le crocettine bian¬ 
che), facendo però attenzione ai 


buchi che si formano casualmente 
sullo schermo. Se il povero mostro 
cade in un buco il gioco ha termi¬ 
ne; si guadagnano dieci punti per 
ogni pillola mangiata. Per control¬ 
lare il movimento del mostro è ri¬ 
chiesto l’uso del joystick. 


i ooo 
1010 
1020 
1090 
1190 

1 200 
1210 

1215 

1220 

1230 

1240 

1250 
1260 
1270 
1 280 
1290 
1300 

1310 

1320 

1330 

1 340 
1 350 
1 360 
1370 
1 380 
1 390 


REM IL MOSTRO treni 30 

REM PAPERSOFT trem 90 

REM TRAD. E ADATT. DI M.ANTICOLI treni 60 

PRINT"{CLR}":POKE36879,42 treni 58 

POKE52, 28 :POKE56,28 :CLR:FORI = 7168T07679 t POKEI,PEEK(I 
+25600)tNEXT treni 183 

F0RC=7432T07471 :READA:POKEC,A:NEXT treni 153 

A=0tFORJ = 82 8TO912 t READX:POKEJ,X :A= A+X t NEXT:READX 

treni 131 

IFXOATHENPRINT"ERRORE NEI DATA" I END treni 65 

PRINT"{¥ELHRVS) UN TASTO PER GIOCARE {OFF )" : SYS 8 2 8 

treni 194 

GETAS t IFAS = " "THENl 230 treni 175 

A=PEEK(36866)AND 128 :SC = 4 +A+64*(PEEK(36869)AND112) :C= 
30720 : rem 149 

SE= 01 Hl=0 irem 

POKE36869,255 treni 

M=SC+252:0=SC+66 treni 

V-36878:Sl=V-2:S2-V-l tCH-34 treni 

PRINT"{CLR}" trem 

FORI = 1TO50 t T=INT(RND(1)* 4!8+0) tIFPEEK(T) = 33THENNEXT 

trem 188 

POKE+C, 5 : POKET,361NEXT trem 142 

FORD=SC+44TOSC+65 tPOKED+C,0 t POKED,33 :POKED+C + 44 0,01 P 
OKED+440 r 331NEXT trem 145 

FORD=SC+66TOSC+462STEP22:POKED+C,0:POKED,33:POKED+C+ 
21,0:POKED+21,33 1 NEXT trem 253 

Z=0 trem 

REM trem 

IFPEEK(841)= 0THENZ=1 trem 

IFPEEK(842)=0THENZ = 2 trem 

IFPEEK(843)-0THENZ=3tCH-34 trem 

IFPEEK(844)=0THENZ=4:CH“35 trem 
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208 
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55 

48 


1 43 
173 
208 
211 
63 
67 
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1 430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 
1 520 
1530 

1540 
1 550 
1 560 

1 570 

1 580 
1 590 
1600 

1610 

1620 


1640 

1650 

1660 

1670 

1680 

1690 

1700 


184 

1 88 
233 
187 
1 33 
83 
125 
249 


IFZ= 1THENM=M-22 :POKEM + 22, 321IFPEEK(M)=33THENM=M+22 

:rem 77 

IFZ= 2THENM=M+22:POKEM-22,32:IFPEEK(M)=33THENM=M-22 

:rem 81 

IFZ= 3THENM=M-1 :POKEM+1,32 :IFPEEK(M)= 33THENM=M+1 

:rem 

IFZ=4THENM=M+1:POKEM-1 ,32 !IFPEEK(M)=33THENM=M-1 

irem 

IFPEEK(M)=36THENSE=SE+10 :rem 

IFPEEK(M)=37THENl530 :tera 

POKEM+C,7:POKEM,CH :rem 

IFRND{ 1 ) > . 1THEN1500 Itero 

Y=INT(RND(1)* 418+0) :IFPEEK( Y)=33THENl 480 Itero 

POKEY+C, 01POKEY » 3 71GOSUBl600 irem 

PRINT" {HOME) (GRN)PUNTI i {WHT)"SEi PRINT" {GRN) (HOME)''SP 
C ( 1 2 ) "REO. i {WHT)"HI itero 33 

IFSE>HITHENHI=SE Item 82 

GOTO1350 item 202 

POKEV,10lFORVO=l5TO0STEP-.1IPOKEV,VOIPOKES1,230+VOlN 
EXT Item 102 

PO KES1,01POKES 2/01PO K EV,0 irem 62 

FORL=lTO1000lNEXT Item 73 

FORVO = 15TOOSTEP-.1IPOKEV,VOIPOKES2,253 :NEXTlPOKES2,0 
iPOKEV,0 irem 184 

PRINT"{HOME)(GIU'H 2 DES)* PREMI UN TASTO *"lPOKEl9 
8,0 item 98 

GETA$!IFA$=""THENl580 irem 191 

SE=0lPRINT"{CLR)"lGOT01260 Item 174 

POKEV,10lFORF=130T0150STEP20lPOKES1,FiNEXTlPOKES1,0l 
POKEV,OlRETURN Itera 62 

REM item 172 

DATA254,254,254,254,254,254,254,0,24,60,86,86,255,25 
5,217,145 itero 248 

DATA24,60,106,106,255,255,155,137,0,0,0,16,56,16,0,0 
,0,24,60,126,126,126,60,24 item 252 

REM irem 

DATAI 20, 1 69,78,1 41 ,20,3,1 69,3,1 41 ,21 ,3,88 item 

DATA96,0,0,0,0,0,169,0,141,19,145,169,127,141 

irem 

DATA34,145,173,17,145,41,4,141,73,3,173 itero 

DATAI 7,1 45,41 ,8,141 ,74,3,173,17,145,41 ,16,141 

item 

DATA75,3,173,32,145,41,128,141,76,3,173 itero 

DATAI 7,1 45,41 ,32,1 41 ,77,3,1 69,255,1 41 ,34,1 45 

irem 

DATAI 69,128,1 41 , 19,1 45,76,191 ,234,0, 0, 0,0,71 67 

item 254 


175 
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1 56 
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Sotteranei 



In questo gioco vesti i panni Pi un 
cavaliere rimasto intrappolato nei 
sotterranei di un castello incantato. 
Questi sotterranei sono formati da 
diverse stanze comunicanti tra lo¬ 
ro, e sono popolati da un gran nu¬ 
mero di mostri pericolosissimi. 
Scopo del gioco è quello di muo¬ 
versi da una stanza all'altra ucci¬ 
dendo il maggior numero possibile 
di mostri. La tua situazione è indi¬ 
cata dai seguenti dati: la fatica, che 
vale inizialmente 100 e diminuisce 
se ti muovi o combatti; le ferite, 
che partono anch'esse da 100 e 


diminuiscono nel combattimento,- 
il peso, che viene deciso casual¬ 
mente all’inizio deI gioco e deter¬ 
mina la tua resistenza alla fatica. 
Usa i tasti dal a 9 per avanzare di 
altrettanti passi, i due tasti cursore 
per ruotare di 90 gradi verso sini¬ 
stra o destra, e infine la barra spa¬ 
ziatrice per sfoderare ia spada e 
combattere. La partita ha termine 
se fatica o ferite calano a zero,- tieni 
presente però che puoi recuperare 
punti in fatica stando fermo e gi¬ 
rando su te stesso. 


10 REM SOTTERRANEI :rem 
20 DIMRS(4) :rem 
30 Y$ = "lHOMEj( 22 GIU 1 )":XS = "{ 22 DESI" :rem 
40 COLOR4,6,4:COLORO,1:PRINTCriRS04):SC=3072 :rem 
50 SR=INT(RND(1)*11+10) :rera 
60 DE=INT(RND(1)*11+10):WE=75+INT(RND(1)*25) :rem 
70 TS=0:RO=0:FA=100:WO=100:D=1:X=3:Y = 15 :rem 
80 FORI=0TO4:READRS(I):NEXT :rem 
90 DATA093D7L5ED5R104D7L4D2L4U2L4U9R3U4L3U6 :rem 
100 DATAD10R5E403D991L4U9D9L8U9E406 :rera 
110 DATA03D5RE5U104R4D7E4092L93U994 :rem 


120 DATA06D7U7R6D 8L2D 5R2D8L4E404U 91R6D4U 4L6U1E40R2L2U 6 


149 
55 
159 
1 1 8 
1 

195 
36 
187 
1 56 
115 
99 


130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 


DATA093D9L9R6D9L1D3L1E403U993 

ONROGOTO160,170,180,190 

MX = 10 :MY=3:GOTO200 

MX=4:MY=3:GOTO200 

MX=3:MY = 10 : GOTO200 

MX=10:MY=18:GOTO200 

MX=2:MY=18 : GOTO200 

M-0: IFRND(1) >. 5THENM=INT(RND(1 1*3+1) :MS=INT( 
) +5 

GOSUB980:V=0:F=0:GOT0250 

GETAS:V= VAL(AS):IFV=0THEN43O 

FA=FA-INT((V/200)*(1OO-WO)+(V/200)*WE+.5) 


:rem 85 
:rem 214 
:rem 242 
:rem 46 
: rem 2 

:rem 48 
rrera 103 
irei» 57 

RND(1 )* 10 
:rem 212 
irei» 168 
:rem 145 
:rem 119 














240 GOSUB890:IFM=1ANDRNO(1)>.2THENF=1 :rem 245 

250 SW“0:FORI-1TOV:PRINTLEFTS(Y$,Y+1);LEFT$(X$,X)" 

{ 2 SPAZlHGIU'}{ 2 SIN} t 2 SPAZI)" :rem 174 

260 XI =X+(D=3)-(D = l):Y1=Y+(D=0)-(D=2) :rem 206 

270 IFPEEK (SC+Y1 * 40+X1 ) <>320RPEEK(SC+Y1 *40+Xl+l) 032THENI 
=V:GOTO360 : cera 0 

280 IFPEEK (SC+Y1 *40+Xl+40) O320RPEEK (SC+Yl*40+Xl+41 ) <>32T 
HENI=V:GOTO360 :rem 196 

290 X=Xl :Y =Yl :IFX>0ANDX<11ANDY>0ANDY<20THEN360 :rem 151 

300 RO“RO+(X*0)-<X-11)+((Y=20)-(Y=0))*2 :rem 45 

310 IFX=0THENX=10 : cera 13 

320 IFX=11THENX = 1 :cem 16 

330 IFY=0THENY=19 :rem 26 

340 IFY = 2OTHENY = 1 :rera 20 

350 GOTO 140 : rem 102 

360 PRINTLEFTS(YS.Y+l);LEFTS(XS,X)"(RED}"; :tem 154 

370 OND + 1GOTO380» 390*400,410 :rem 244 

380 PRINT" (<D>) (GIU'H 2 SIN}[< 2 K>} {SU } (SIN}" ; : GOTO420 

:rem 23 

390 PRINT"{RVS}[<I>J {OFF} [<F>] (GIU'}{ 2 SIN}{RVS)[<1>J 

{OFF} {SIN}";:GOTO420 :rem 224 

400 PRINT"{RVS){< 2 K>]{GIU'}{ 2 SIN}{OFF) {<V>]{ 2 SIN) 

";:GOTO420 :rem 210 

410 PRINT" [<I>1 {GIU'}{ 2 SIN}[<C>] [<I>] {SU}{ 2 SIN}"; 

: rem 183 

420 IFV20THENNEXTI :rem 160 

430 IFASO" {SIN}"ANDAS<>" (DES} " THEN490 :rem 197 

440 IFFA<100THENFA=FA+1:GOSUB890 :rem 172 

450 SW-0:D“D+(AS“"{SIN}")-(AS="{DES}"):IFD<0THEND=3 

: rem 

460 IFD>3THEND=0 
470 AS="" 

480 V=0:GOTO360 
490 IFASO" "THEN570 
500 SW=3:FA=FA-2 


: rem 
:rem 
: rem 
: rem 
: rem 


139 
190 
129 
107 
26 
1 47 

510 PRINTLEFTS(Y$,Y+1) ;LEFTS(XS,X+1) ;"{YEL}"; :IFD = 0THENPR 
INT"{<H>}": GOTO 55 0 :rem 235 

520 IFD = !THENPRINT"{GIU 1 }[<Y>1": GOTO550 :rem 173 

530 IFD = 2THENPRINT"{GIU'}{SIN}[<M>)":GOTO550 itero 60 

540 PRINT"{SIN}[<P>]" :rem 182 

550 Xl=X:Yl=Y:Xl=X]+((D=3)-(D=l))*2:Yl=Yl+((D=0)-(D=2))*2 

:rem 62 

560 F = 1 : rem 79 

570 IFSN>0THENSW=SW-1:IFSW=0THENGOSUB890:AS="":GOTO360 

itero 189 

580 IFM=0THEN850 : ren 178 

590 IFMS>=SRANDRND(1)>.7THENF=1 :rem 172 

600 IFF=OTHEN690 :rem 166 

610 PRINTLEFTS(YS,MY+1);LEFTS(XS,MX)"{ 2 SPAZI}(GIU'} 

{ 2 SIN}{ 2 SPAZI}";:IFSM>0ANDMX>=XTHENPRINT"{ 2 SU} 

{ 3 SIN} " irem 124 
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620 SM=0:DY=MY+(MY>Y) - (MY<Y) : IFPEEK(SC+DY*40+MX) O320RPEE 
K(SC+DY*40+MX+1) O32THEN650 :rem 131 

630 IFPEEK (SC+DY*40+MX+40) O320RPEEK (SC+DY*40+MX+41 ) <>32T 
HEN650 :rem 212 

640 MY=DY :rem 26 

650 DY=MX+(MX>X+2)-(MX<X-1) :IFABS(DY-XJ < = 1THENDY*DY+(DY>1 
)*2 :rem 137 

660 IFPEEK (SC+MY*40+DY) O320RPEEK (SC+MY* 40+D Y+l ) 0 32THEN6 
90 :rem 26 

670 IFPEEK (SC+MY*40+DY+40) O320RPEEK (SC+MY*40+DY+41 ) <>32T 
HEN690 : rem 222 

680 MX-DY :rem 29 

690 PRINTLEFTS (YS.MY+1) ;LEFTS (XS,MX) " {BLUHRVS) I<B>] {OFF} 
[<F>1{GIU'}{ 2 SIN}[<C>)"; :IFSW=0THEN740 :rem 12 

700 IFABS(Xl-MX)JlORABS(Yl-MY)>1THEN740 : rem 117 

710 SW=1:S=SR/4iS=S+(S*OE)/100:MS=MS-INT(S+.5):IFMS>0THEN 
740 :rem 131 

720 PRINTLEFTS(Y$,MY+1) ;LEFTS(X$,MXI "( 2 SPAZlHGIU'} 

{ 2 SIN) " :rem 40 

730 TS-TS+1:M=0:GOTO850 :rem 133 

740 IFSM>OORRND(1)>.5ORF = 0THEN81 0 : rem 252 

750 X2=MX:Y2=MY iteti 176 

760 PRINTLEFTS(YS,MY+1) ;LEFT5(XS/MX) ; :IFMX<XTHENPRINT" 
{GIU 1 }(DES){YEL}[<Y>]:Y2=Y2+1:X2=X2+1:GOTO800 

:rem 115 

770 IFMX=0THEN850 : rem 11 

780 IFPEEK(SC+MY*40+MX-1)=160THEN850 : rem 103 

790 PRINT" {SINHSU} (YEL) [<P>] " ; :X2=X2-1 :rem 16 

800 SM=4 :rem 169 

810 IFSM-OTHEN850 iteli 1 

820 SM=SM-1 iteli 117 

830 IFABS(X2-X)>1ORABS(Y2-Y)>1THEN850 :rem 227 

840 SW=1 :S=MS:S=S-e(S*2*M)/100:WO=WO-INT(S+.5) :rem 170 

850 IFWO>0ANDFA>0THEN220 : rem 203 

860 FORI■ITO!000 :NEXT:PRINT"{CER}{ 3 GIU'}{YELjSEI MORTO! 

":M=0 : rem 15 

870 GOSUB8901GOTOl130 : rem 248 

B80 IFD1=3THENPRINT"{SIN}"; itera 236 

890 PRINTLEFTS ( Y$, 2} ; LEFTS (X$ f 1 4)" {CYN}FATICA {YEL}{GIU'} 
{ 7 SIN}"FA"[SIN}% " : rem 163 

900 PRINTTAB(14)"{CYN}FERITE{GIU 1 }l 6 31N}{YEL}"WO"{SIN}% 
11 item 94 

910 PRINTTAB(14)"{GIU'}{CYN}PESO{GIU'}{ 4 SIN}{YEL)"WE" 
{SIN} KG {GIU ' } " iteti 34 

920 PRINTTAB(14)"{CYN}MOSTRI{GIU'}{ 6 SINlUCCISI[YEL) 

{GIU 1 } { 6 SIN} "TS iteti 249 

930 PRINTLEFTS(Y$,l7);LEFT$(XS,14)"{PUR}{< 8 P>){GIU'} 

{ 9 SIN } [ <N> 1 { 8 SPAZI } [<H>] {GIU' } { 10 SIN}''; 

: rem 124 
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940 PRINT"I<N>}{ 8 SPAZI ! I<H>]{GIU'){ IO SIN)[<N>] 

( 8 SPAZI)[<H>](GIU 1 )( IO SIN)[<N>1{ 8 SPAZI}[<H>]"; 

:rem 41 

950 PRINT" IGIU’H 9 SIN} [< 8 Y>] { 4 SU 1 { 7 SIN}"; 

:rem 135 

960 IFM50THENPRINT"{GIU * JMOSTRO(GIU'}( 7 SINjlN VISTA" 

:rem 88 


970 RETURN :rem 128 

980 PRINT" (CLRHWHT)"; :D1 = 1 : FORI = ITOLEN(RS (RO) ) :rem 117 
990 SS=MID«(R$(RO) ,1,1) : IFVAL(SS)>OTHENFORJ= 1TOVAL(S$):GO 


SUBÌ 070 :NEXT 

: rem 

216 

1000 

IFS$="U"THENDl=0 

: rem 

174 

1010 

IFS$="L"THEND1=3 

: rem 

169 

1020 

IFSS="D"THEND1=2 

: rem 

161 

1 030 

IFSS="R"THEND1=1 

: rem 

1 75 

1040 

IFSS="E"THENPRINT" (OFF}"; 

: rem 

94 

1050 

IFS$="0"THENPRINT"{RVS}"; 

: rem 

233 

1 060 

NEXT:PRINT"{HOME}":GOSUB890:RETURN 

:rera 

1 53 

1 070 

PRINT" {SIN}"; 

:rem 

113 

1 080 

IFDl=OTHENPRINT"{SU}"; 

: rem 

6 

1090 

IFD1 -1THENPRINT"[DES}"; 

: rem 

148 

1100 

IFDl=2THENPRINT"{GIU'}"; 

:rem 

129 

ino 

IFDl=3THENPRINT" {SIN} 1 '; 

: rem 

15 

1120 

RETURN 

: rem 

164 

1130 

PRINTLEFTS(YS.20);LEFTS1X5,16)"FINE" 

: rem 

77 

11 40 

PRINT"! 2 GIU 1 (GIOCHI ANCORA (S/N)?" 

:rem 

128 

1150 

POKE239,0 :GETKEYAS 

: rem 

88 

1160 

IFAS = "N"THENSC NCLR: END 

: rem 

1 44 

1170 

IFA$="S"THENRUN 

: rem 

1 81 

1180 

GOTOl150 

: rem 

202 


Caccia al topo 




CI6--pius/«q. 

joystick opz. 


Sei un topolino che ha la sventura 
di trovarsi in un labirinto in compa¬ 
gnia di un pericolosissimo gatto, 
che si trova tra te e l'uscita. Scopo 

10 S=3072:C=-1024 
20 COLOR4,10,2:COLORO,2 


del gioco è riuscire a scappare sen¬ 
za cadere nelle grinfie del felino. 
Per muoverti usa i tasti S, X, D e E 
oppure il joystick in porta n. 2 

:rem 107 
:rem 71 











30 I 

Ì= INT(RND(1)*960)+3094:OP=P:E=S+82 

: rem 

96 

40 GOSUB460 

: rem 

126 

50 DIMA ( 3) 

: rem 

4 

60 A(0) = 2:A(l)--80:A(2)=-2:At3)=80 

: rem 

164 

70 WL=160:HL=32:A=S+82 

: rem 

238 

80 PRINT"(CLR)(RVS)l<2>]i< 39 +>] "; 

: rem 

248 

90 FORI=1TO23 

:rem 

1 5 

100 

PRINT"[< + >] [<7>] ( 37 SPAZI}[<2>] [<+>] 

: rem 

24 

110 

NEXT 

: rem 

209 

120 

PRINT" [< 39 +> 1 [OFF:POKE4071 ,160:POKE4071 +C,41 




: rem 

167 

130 

POKEA,4 

: rem 

100 

140 

J=INT(RND(1)*4):X=J 

: rem 

53 

1 50 

B=A+A(J):IFPEEK(B)=WLTHENPOKEB,J:POKEA+A(J)/2,HL:. 

A=B: 


GOTO140 

:rem 

168 

160 

J= (J + l) *- (J<3) : IFJOXTHENl 50 

: rem 

32 

170 

J=PEEK(A):POKEA,HL:IFJ< 4THENA=A-A(J):GOTO140:rem 

194 

180 

P=INT (RND ( 1 1 * 960 ) +S : 0P=P: IFPEEK ( P) O32THEN180 




: rem 

171 

1 90 

POKEA, 81 : POKEA-fC, 0: J = 2 

: rem 

6 

200 

FORK=1T02 

: rem 

7 

210 

B=A+A(J)/2:IFPEEK(Bì =HLTHENP0KE3,81:POKEB+C, 

0:POKEA,H 


L:A=B:J =J + 2+4*(J>1) 

:rem 

22 

220 

J=J-l-4*( J = 0) 

:rem 

86 

230 

IFB-PTHEN380 

: rem 

1 89 

240 

NEXT 

: rem 

21 3 

250 

D=PEEK(20381:JY=JOY(2) 

: rem 

234 

260 

IFD=23ORJY=5THENP=P+40 

: rem 

94 

270 

IFD=130RJY=7THENP=P-1 

: rem 

47 

280 

IFD=180RJY=3THENP=P+1 

: rem 

47 

290 

IFD = 1 40RJ Y = 1 THENP=P- 40 

: rem 

95 

300 

IFA=PTHEN380 

: rem 

1 86 

310 

IFP=ETHEN410 

:rem 

1 85 

320 

IFPEEK(P)=160THENP=OP:GOTO360 

: rem 

37 

330 

POKEP,42 :POKEP+C,2 :IFD<>640RJS<>OTHENPOKEOP, 

,32 




: rem 

147 

340 

FORK = lTO10 :NEXT 

:rem 

1 80 

350 

OP-P 

: rem 

196 

360 

POKEE,21 

:rem 

156 

370 

GOTO200 

: rem 

101 

380 

PRINT"(CLRJIGIU')[<7>1 IL GATTO TI HA CATTURATO E 

TI 


HA" 

:rem 

6 

390 

PRINT" MANGIATO..." 

: rem 

71 

400 

GOTO 420 

:rem 

99 

410 

PRINT"(CLR)IGIU'i(<7>1 SEI RIUSCITO A FUGGIRE SANO E 


SALVO..." 

: rem 

1 98 

420 

PRINT"{ 3 GIU') GIOCHI ANCORA (S/N)?" :POKE239,0 




: rem 

196 

430 

GET A$ : I FA$ <>"S"ANDA$O"N"THEN430 

:rem 

37 

440 

IFA$="S"THENRUN 

:rem 

1 32 

450 

SCNCLR:END 

: rem 

11 1 
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460 PRINT"{CLRl( 2 GIU')1 12 SPAZI){RVS){RED) CACCIA AL T 
OPO [<7>1{ 4 GIU')" :rem 143 

470 PRINT"{ 3 SPAZI(TU SEI IL TOPO (*) E APPARI IN UN" 

: rem 132 

480 PRINT"! 3 SPAZI(PUNTO QUALSIASI DEL LABIRINTO. DEVI" 

: cem 126 

490 PRINT"! 3 SPAZI(RAGGIUNGERE L'USCITA (U), MA STAI" 

:rem 107 

500 PRINT"! 3 SPAZI(ATTENTO AL GATTO (Q), PERCHE' SE TI" 

:rem 242 

510 PRINT"! 3 SPAZI(RAGGIUNGE FARAI UNA BRUTTA FINE! 

{GIU'C 109 

520 PRINT"! 3 SPAZI(PER MUOVERTI USA I TASTI (RVS)S(OFF(- 
!RVSÌX|0FF!-(RVS)d!off)-(rVS)e 10FF('' :rem 204 

530 PRINT"! 3 SPAZI(OPPURE IL JOYSTICK IN PORTA N.2" 

:rem 20 

540 PRINT"! 4 GIU'){BLK)( 8 SPAZI}PREMI [RVS(RETURN[OFF) 
PER GIOCARE" :rem 32 

550 GETA5: IFASOCHRS (13JTHEN550 ! rem 6 

560 RETURN •rem 123 


" 


— 


La miniera maledetta 




joystick opz 


CI6?-pius/4 


Questo gioco è ispirato ad uria an¬ 
tica leggenda popolare dell'Arizo¬ 
na, che narra della scomparsa di 
un vecchio cercatore d'oro olan¬ 
dese e del suo tesoro presso le 
Montagne Incantate. Nella prima 
schermata devi raccogliere le pepi¬ 
te d'oro sparse qua e là, rappre¬ 
sentanti indizi sul tesoro nascosto. 
Ma il tuo compito è reso più diffi¬ 
coltoso dalla presenza dei fanta¬ 
smi dei vecchi cercatori d'oro, che 
ti inseguono e cercano di ucciderti. 


Quando sei riuscito a trovare il te¬ 
soro (ricordati di 'catturare" indi¬ 
zi!) passi al secondo schermo che 
rappresenta la grotta del tesoro, 
protetto dal fantasma del vecchio 
cercatore olandese, che cerca di 
catturarti, se riesci a scampare e a 
raggiungere l'oro, il tuo punteggio 
viene moltiplicato per 10. 

Per questo gioco è previsto l'uso 
del joystick in porta 1, oppure dei 
tasti cursore. 


100 REM LA MINIERA MALEDETTA 
110 VOL8:GOSUB650 
120 SR=0:GL=4068 
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: rem 152 
:rem 16 
: rem 129 








130 PRINT" {HOME} { 14 DES)PUNTISR :rem 125 

140 JY=JOY(1):K=PEEK(2038):AL=L :rem 62 

150 POKEL.32:IFJY=10RJY=20RJY*80RK=43THENAL=AL-40 

: rem 143 

160 IFJY=50RJY=60RJY=40RK=40THENAL=AL+40 :cem 73 

170 IFJY=70RJY“80RJY=60RK=48THENAL=AL-1 :rem 39 

180 IFJY=30RJY=20RJY=40RK=S1THENAL=AL+1 :rera 20 

190 IFPEEK(AL)<>160THENL=AL :rera 130 

200 IFPEEK(L)=GTHEN380 :rem 49 

210 IFPEEK(L)=46THENSR=SR+1 :rem 157 

220 IFPEEK(L)=CLTHENPRINT"{HOME}"TAB(9)"HAI TROVATO LA ST 
ANZA":FORT=lT02000:NEXTT :rem 221 

230 IFPEEK(L)=CLTHENSR=SR+100:PRINT"{HOME}"TAB{9)" 

( 21 SPAZI 1" :rem 231 

240 IFL=RLTHEN470 :rem 22 

250 IFL=GLTHEN570 :rem 13 

260 POKEL,I:LY=INT((L-Sl/40):LX=L-S-LY*40 :rem 215 

270 NG=3:IFRL=4068THENNG=1 :rem 70 

280 FORX=lTONG:M=G(X):POKEM.32 :rem 122 

290 GY-INT((M-Sl/40):GX=M-S-GY*40 :rera 163 

300 IFGX4LXAND ( PEEK (M+l ) <50ORPEEK (M+l ) -I ) THENH=P4+1 

:rera 45 

310 IFGX>LXAND(PEEK(M-1)<50ORPEEK(M-1)=I)THENM=M-1 

:cem 54 

320 IFGY>LYAND(PEEK(M-40)<50ORPEEK(M-40)=1)THENM=M-4 0 

:rem 210 

330 IFGY4LYAND(PEEK(M+40)<50ORPEEK(M+40)“I)THENM=M+40 

:cem 203 

340 G(X)-M:POKEM,G:IFG = 65THENG = 88:GOTO360 :rem 33 

350 IFG=88THENG=65 :rem 57 

360 IFM=LTHEN380 : rem 200 

370 NEXTXrGOTOl30 : rem 56 

380 COLOR4,3 :FORX = 0TOl19:F»200 : rem 32 

390 IFINT(X/10)/2 = INT(INT(X/l0)/2)THENCOLOR4 , 3:COLORO , 3 

:rem 55 

400 IFINT(X/l0)/2<>INT(INT(X/l0)/2)THENCOLOR4,15:COLORO,2 

:rem 158 

410 SOUNDl,F+X*6,3:NEXTX : rem 212 

420 FORX*lT02000:NEXTX :rem 121 

430 PRINT"1CLR)":PRINT:PRINT :rem 137 

440 PRINT"HAI PERSO I":PRINT"IL MIO FANTASMA TI HA CATTURA 
TO!" :rem 179 

450 PRINT:PRINT"HA HA HA HA HA!" : rem 255 

460 GOTO620 :rem 107 

470 PRINT"{CLR}":PRINT"(BLK) (RVS)( 18 SPAZI}" :rem 172 

480 FORX = lTOl2:PRINT" (RVS) ";TAB(1 8);"(RVS} ": NEXTX 

:rem 154 

490 PRINT"{BLK} {RVSjl 18 SPAZI)" :rem 16 

500 S = 3154:B=160:BX = 49 : rem 192 

510 FORX = OTOBX:POKES+40 *INT(RND(8)*12)+INT(RND{8)* 17) ,B:N 
EXTX :rem 207 
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520 GL=S+40*INT(RND(8)*12)+INT(RND<8)* 17) :POKEGL,l64 

:rem 210 

530 G=88:FORX=l T03:G(X)*3561: NEXTX: L**S+8 :rem 201 

540 FORX = l 'PO 3 : POKEG (X) , G : NEXTX : POKEL, I :rem 227 

550 RL=4068 :cem 71 

560 FORT=lT02500:NEXTT:GOTOl30 :rera 130 

570 FORX=lTO2000:NEXTX :rem 127 

580 PRINT"(CLR}":PRINT:PRINT : rem 143 

590 PRINT"HAI TROVATO IL TESORO!":PRINT:PRINT :rem 144 

600 PRINT"PUNTEGGIO FINALE:"SR*10 :cem 50 

610 PRINT:PRINT : rem 235 

620 POKE239 , 0 :PRINTTAB{! 3)"{ 2 GIU'lGIOCHI ANCORA?":GETKE 
XQ5 : rem 152 

630 IFQ$="S"THEN110 :cem 50 

640 SCNCLR:END :cem 112 

650 PRINT"{CLRJ{BLK ì": COLORO, 2 :rem 214 

660 PRINT"! 9 SPAZlKRVSl LA MINIERA MALEDETTA {OFF}":PRI 
NT : rem 251 

670 PRINT"TEMPO FA, SULLE MONTAGNE INCANTATE" :rem 27 

680 PRINT" DELL' ARI ZONA, L'ORO DEL VECCHIO OLANDESE" 


:rem 123 

690 PRINT"ERA STATO SEPOLTO IN UNA GROTTA.":PRINT 

:rem 58 

700 PRINT"CERCA LE GROTTE MA FAI ATTENZIONE AI" :cem 21 
710 PRINT"FANTASMI (X).":PRINT :rem 218 

720 PRINT"RACCOGLI LE PEPITE E I MISTERIOSI" :rem 156 
730 PRINT"INDI ZI (f RVS} ?(OFF }J CHE TI AIUTERANNO":PRINT"A 
TROVARE LA STRADA." ;rem 178 

740 PRINT:PRINT:PRINT"USA IL JOYSTICK N.l O I TASTI CURSO 
HE-" :rem 3 

750 PRINT:PRINT"IMPOSTA L'INIZIALE DEL TUO NOME." 

:rem 67 

760 GETKEYI5 :rem 211 

770 IFASC(I?)<650RASC( IS) >90THEN760 :rem 18 

780 PRINT"(CLR)":PRINT"!BLK) lRVSj( 37 SPAZI>" :cem 176 
790 FORX = lTO19 :PRINT" {RVS} ";TAB(37I ;"{RVS) ":NEXTX 


:rem 166 

800 PRINT" {RVS}{ 37 SPAZI}" :rem 123 

810 S=3154:B=160:G=146:CL=191:I=ASC(I$)-64 :rem 44 

820 BX=249:C=99 :rem 60 

830 FORX=OTOBX:POKES+40*INT(RND(8)* 19)+INT(RND(8)* 35) ,B:N 
EXTX :rem 219 

840 FORX=OTOC:POKES+40*INT(RND(8)*19)+INT(RND(8)*35),46:N 
EXTX itera 173 

850 FORX=0TO3:RL=S+40*INT(RND(8)*19)+INT(RND(8)* 35): POKER 
L,CL: NEXTX : rem 118 

860 G=88:G(1)=3476:G(2)=3506:G(3)=38!2:L=S+1 8 : rem 111 

870 F0RX = 1T03:POKEG(X),G:NEXTX:POKEL,I : rem 233 

880 RETURN ; rem 128 
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Corona 



Giocate a dadi col vostro C64, che 
tiene il Banco. Dovete scommette¬ 
re su un numero da 1 a 6, dopo di 
che vensono lanciati tre dadi. Di¬ 
sponete inizialmente di 500.000 li¬ 
re; la puntata deve essere di alme¬ 
no 1000 lire e non deve ovviamen¬ 
te superare il capitale in vostro 
possesso. Se il vostro numero esce 


una, due o tre volte vincete rispet¬ 
tivamente il doppio, il triplo o il 
quadruplo della posta. Il gioco ter¬ 
mina se restate senza soldi oppure 
se riuscite ad accumulare almeno 
5 milioni, sbancando il computer. 
Il programma fornisce le istruzioni 
necessarie allo svolgimento della 
partita. 


10 : :rem 155 

30 REM****** CORONA ****** : rem 1 

40 REM****** BY ****** : rem 219 

50 REM****** MAURIZIO VIGNAZZI ****** : rem 35 

90 : : rem 163 

100 REM * INIZIALIZZAZIONE COSTANTI * :tem 1 

105 CB=53280:CS=53281 : rem 106 

110 X=54296:Y=54272 :rem 5 

115 RR=INT(RND(0)*15+1) : rem 5 

120 DIMD(3) : rem 53 

125 POKE788,52 :REM*DISABILITA RUN/STOP* itera 179 

130 OPEN1,0:POKECB,13:POKECS,9 :rem 53 

1 35 PRINTCHRS (1 47) CHRS (1 7) CHRS (1 7) CHRS (1 7) CHRS (29)CHRS(29 
)CHR$ (2 9) CHRS (158); :rera 164 

140 PRINT"QUAL 1 E' IL TUO NOME : INPUT#!,OS itera 26 

145 POKECB,5:POKECS,2 itera 12 

150 REM * ISTRUZIONI * itera 238 

1 55 PRINTCHRS (1 47) CHRS (17) CHRS (17) CHRS (17) CHR$ (29J CHR$ (29 
JCHRS (29) ; itera 182 

160 PRINT"( 2 SPAZI}CONOSCI IL GIOCO 'CORONA' ?":PRINTCHR 
$(17) ; :rera 135 

165 FORI=1TOl7iPRINTCHRS(29); :NEXT:PRINT"(S/N) itera 135 

170 GETAS:IFAS=""THEN170 itera 83 

175 IFA? = "S"THEN285 itera 51 

180 IFASO"N"THENl 70 itera 96 

185 PRINTCHRS(14) itera 226 

1 90 PRINTCHRS (1 47) CHRS (1 8) CHRS (1 7 ) CHRS (1 7) ; : FORI = 1 TOl 3 i PR 
INTCHRS(29);:NEXT :rem 150 

195 PRINTCHRS(32)CHRS(195)CHRS(32)CHRS(207)CHR$(32)CHRS(2 
10)CHRS(32); itera 4 

200 PRINTCHRS(207)CHRS(32)CHRS(206)CHRS(32)CHRS(193(CHRS( 
32)CHRS (146) ' itera 245 








205 PRINTCHRS ( 5)CHR$ (17) CHRS (17) CHRS ( 201)"L GIOCO CONSIST 
E NELLO SVUOTARE LE" : rem 241 

210 PRINTCHRS (1 7) ; : PRINT''CASSE DEL BANCO, PUNTANDO UN NUM 
ERO A" :rem 22 

215 PRINTCHRS(17);:PRINT"PIACERE TRA 1-6 ED ATTENDERE IL 

RESPONSO" : rem 204 

220 PRINT"DEI DADI.” : rem 119 

225 PRINTCHRS(12);:PRINT"1 "CHRS(206)"UMERO VINCE"CHRS(32 
) CHRS (196); : rem 102 

230 PRINTCHRS(213)CHRS(197)CHR$(32)"VOLTE LA POSTA" 

:rem 150 

235 PRINTCHRS(17);:PRINT"2 "CHRS(206)"UMBRI VINCONO"CHRS( 
32)CHRS(212); : rem 254 

240 PRINTCHRS(210)CHRS(197)CHRS(32)"VOLTE LA POSTA" 

:rem 148 

245 PRINTCHRS(17);:PRINT"3 "CHRS(206)"UMERI VINCONO"CHRS( 
32)CHRS(209); :rem 6 

250 PRINTCHRS(213)CHRS(193)CHRS(212)CHRS(212)CHRS(210)CHR 
S(207JCHRS(32); : rem 139 

255 PRINT"VOLTE LA POSTA" : rem 11 

260 PRINTCHRS(18)CHRS(158)CHRS(17)CHRS(17); :FORI = lTOl2 :PR 
INTCHRS(29);:NEXT : rem 149 

265 PRINTCHRS(32)CHRS(194)"UONA"CHRS(32)CHRS(198)"ORTUNA1 
"CHRS (146) : rem 30 

270 PRINTCHRS (1 8) CHRS (1 7)CHR$ (29)CHRS ( 2 9) CHRS ( 29) CHRS ( 2 9) 
CHRS(29)CHRS(2); :rem 11 

275 PRINT" PREMI UN TASTO PER INIZIARE "CHRS(146)CHRS(154 
) :rem 53 

280 GETAS:IFA$ n ""THEN280 : rem 87 

285 REM * INIZIO GIOCO * : rem 26 

290 PRINTCHRS(147):POKECB,0:POKECS,11 :PRINTCHRS(142):CD = 5 
00000 : rem 192 

295 PRINTCHRS ( 1 9 ) CHRS ( 1 58) CHRS (17) CHRS ( 1 7) CHRS ( 2 9) CHRS ( 29 
) ; : rem 2 

300 PRINT"CAPITALE A DISPOSIZIONE:"CHRS(154)CD :rem 53 
305 PRINTCHRS (19) CHRS ( 1 58) CHRS ( 1 7) CHRS (17) CHRS (17) CHRS ( 1 7 
)CHRS(29)CHRS(29); : rem 110 

310 PRINT"VALORE DELLA PUNTATA...: "CHRS(154); :FORI = 1TOl2 


:PRINTCHRS(32); :NEXT 
315 FORICITOl2:PRINTCHRS(157); :NEXT 
320 P$ = "":CT=0: FORICI IO (LEN(STR$(CD))- 1 ) 
3 25 GETVS:IFVS = ""THEN325 
330 IFVS=CHRS(13)THEN350 
335 IFV$<CHRS(48)ORVS >CHR$(57)THEN3 70 
340 PRINTVS;:PS=P$+VS 
345 NEXTI 
350 IFCT=1THEN305 
355 P=VAL(PS) 

360 IFP<1000ORP5CDTHEN305 
365 GOTO400 

370 REM * MESSAGGIO DI ERRORE * 

17 


: rem 
: rem 
:rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


1 68 
1 67 
23 
1 29 
89 
1 26 
221 
36 
243 
210 
242 
1 07 
205 


375 CT-1: PRINTCHRS (19); :rem 98 

378 FORI ='1 TO15:PRINTCHRS (1 7) ; :NEXT:FORI = 1 TOl 0:PRINTCHRS (2 
9);:NEXT :rem 146 

380 PRINT"SOLO VALORI NUMERICI!" :tera 243 

385 FORR= 1 TO1000 :NEXTR :rem 118 

390 PRINTCHRS(19);:F0RI=lT015:PRINTCHRS(17); :NEXT:FORI = 1T 
010:PRINTCHRS(29);:NEXT ire» 74 

395 F0RI=1T021:PRINTCHRS(32);:NEXT:GOTO305 :rem 130 

400 PRINTCHRS(19)CHRS(158); :FORI-1T06:PRINTCHRS(17); :NEXT 



: PRINTCHRS (291CHRS (29) ; 

: rem 

106 

405 

PRINT"NUMERO PUNTATO (1 - 6) ...:"CHRS(32)CHRS(32)CHRS(3 


2 ) CHRS ( 32 ) CHR$ (154) ; 

:rem 

23 

410 

FORICIT05:PRINTCHRS(32); 

:rem 

196 

415 

FORI = !T05:PRINTCHRS(157) ; :NEXT 

: rem 

1 22 

420 

GETNS:IFNS=""THEN420 

:rem 

105 

425 

IFNS4CHRS(49)ORNS >CHRS(54)THEN4 50 

:rem 

107 

430 

N=VAL(NS) 

:rem 

200 

435 

IFN<lORN>6THEN400 

: rem 

12 

440 

PRINTN:G0T047 5 

: rem 

1 34 

445 

REM * MESSAGGIO DI ERRORE * 

:rem 

208 

450 

PRINTCHRS (19) ; :FORI=l TOl 5: PRINTCHRS (17); 

:NEXT:FORI=lT 


010:PRINTCHRS(29); :NEXT 

: reo 

71 

455 

PRINT"VALORE FUORI CAMPO!" 

: rem 

78 

460 

FORR=1TOl 000 :NEXTR 

: rem 

112 

465 

PRINTCHRS (19) ; : FORI = l TOl 5 : PRINTCHRS (17) ; 

:NEXT:FORI=l T 


010:PRINTCHRS(29);:NEXT 

:rem 

77 

470 

FORI-1TOl9:PRINTCHRS(32) ; :NEXT:GOTO400 

: rem 

127 

475 

REM * LANCIO DEI DADI * 

: rem 

114 

480 

FORL=1T03:D(L)=INT( 1 +6*RND(0)) 

: rem 

200 

485 

NEXTL 

:rem 

44 

490 

c=o 

:rere 

77 

495 

IFD(l) ONTHEN505 

:ren 

1 36 

500 

C=C+1 

: rem 

1 80 

505 

IFD ( 2) ONTHEN51 5 

sren 

130 

510 

C=C+1 

: rem 

1 81 

515 

IFD(3)< >NTHEN525 

:rem 

133 

520 

C=C+1 

:ren 

182 

525 

PRINTCHRS(30)CHRS(17)CHRS(29)CHRS(29)"RISULTATI USCIT 


I.: "CHRS (154) ; 

: rem 

139 

530 

PRINTD(1);D(2);D(3) 

: reir 

240 

535 

REM * DISEGNO DEI DADI * 

rrerr 

1 94 

540 

PRINTTAB ( 6 ) CHRS ( 5 ) CHRS ( 1 7) CHRS (1 7) CHRS ( 1 7) CHRS ( 32) CHR 


5(32) ; 

: rem 

226 

545 

PRINTCHRS(176)CHRS(96)CHRS(96)CHRS(96)CHRS(174); 




:rem 

135 

548 

FORI=1T05:PRINTCHRS(32) ; :NEXT 

: rem 

73 

550 

PRINTCHRS(176JCHRS(96)CHRS(96)CHRS(961CHRS(174); 



* 

: rem 

131 

553 

FORI-1TO 5 :PRINTCH RS(32) ; :NEXT 

: rem 

69 

555 

PRINTCHRS(176)CHRS(96)CHRS(96)CHRS(96)CHRS(174) 




:rem 

77 





560 PRINTTAB(6)CHRS(32)CHRS(32)CHRS 0 25)CHRS(32)CHRS(32) C 
HRS(32)CHRS(125); :rem 40 

565 F0RI=1T05:PRINTCHRS(32);:NEXT : rem 72 

568 PRINTCHRS(125)CHR$(32)CHRS{32)CHRS(32)CHR$( 1 25); 

:rem 100 

570 F0RI=lT05:PRINTCHRS(32); :NEXT : rem 68 

573 PRINTCHRS(125)CHRS(32)CHRS(32)CHRS(32JCHR?(125) 

:rem 37 

575 PRINTTAB(6)CHRS(32)CHRS(32)CHRS(125)CHRS(32)CHRS(32)C 
HRS (32)CHR$ (1 25) ; irei. 46 

580 FORI = 1T05:PRINTCHRS(32); :NEXT : rem 69 

583 PRINTCHRS (125)CHRS (32)CHRS (32)CHRS (32)CHRS (125) ; 

:rem 97 

585 FORI=lT05:PRINTCHRS(32)NEXT : rem 74 

588 PRINTCHRS(125)CHRS(32)CHRS(32)CHRS(32)CHRS(125) 

:rem 43 

590 PRINTTAB(6)CHRS(32)CHRS(32)CHRS(125)CHRS(32)CHRS(32)C 
HR$ (32)CHR$ (125) ; :rem 43 

595 FORI=lT05:PRINTCHRS(32)NEXT : rem 75 

598 PRINTCHRS(125)CHRS(32)CHRS(32)CHRS(32)CHRS(125); 

:rem 103 

600 FORI = lT05:PRINTCHRS(32); :NEXT : rem 62 

603 PRINTCHRS (1 25) CHRS ( 32) CHRS ( 32) CHRS ( 32) CHRS (125) 

: rem 31 

605 PRINTTAB(6)CHRS(32)CHRS(32)CHRS(173)CHRS(96)CHRS(96)C . 

HRS (96) CHRS (1 89) ; : rem 83 

610 FORI = lT05:PRINTCHRS(32); :NEXT : rem 63 

613 PRINTCHRS(173)CHRS(96)CHRS(96)CHRS(96)CHRS(189); 

: rem 1 34 

615 FORI = 1T05:PRINTCHRS{32); :NEXT : rem 68 

618 PRINTCHRS (173) CHRS ( 96 ) CHRS ( 96 ) CHRS ( 96 ) CHRS (189) 

:rem 80 

620 FORK=lT03 : rem 14 

625 IFD(K)=1ORD(K)=30RD(K)"5THENPOKE1584+10*K,42:rem 33 
630 NEXTK : rem 35 

635 F0RK=1T03 :rem 20 

640 IFD(K)<>1THENPOKE1544+10 + K+1,42:P0KE1624+10*K-1,42 

:rem 246 

64 5 NEXTK : rem 41 

650 F0RK-1T03 : rem 17 

655 IFD(K)-40RD(K)= 50RD(K)=6THENPOKEl 544 + !0*K-l,42:P0KE16 
24 + 10*K+1,42 : rem 169 

660 NEXTK : rem 38 

66 5 FORK= 1T03 :rem 23 

670 IFD(K)=6THENPOKEl584+10*K+1,42:P0KE1584+10*K-1,42 

:rem 202 

675 NEXTK : rem 44 

680 REM * CONTROLLO RISULTATI * :rem 83 

685 IFCOOTHEN765 :rem 240 

690 PRINTCHRS (1 44 (CHRS (17) CHRS (17) FORI=1T08:PRINTCHRS(2 
9);:NEXT :rem 177 
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695 

PRINT"HAI PERSO "CHRS<154);P;"LIRE" 


: rem 

242 

700 

POKEX,15 


: rem 

1 76 

705 

POKEY+6,240 :POKEY+1 ,4 :POKEY+5,0 :POKEY+4, 

33 

: rem 

246 

710 

FORL=l024T0512STEP-4 


: rem 

167 

71 5 

POKEY+1 ,L/256 :POKEY,LAND255 


: rem 

110 

720 

NEXTL 


: rem 

36 

725 

POKEY+4,0:POKEX,0 


: rem 

254 

730 

FORR=lTOÌ000 :NEXTR 


:rem 

112 

735 

AT=CD-P 


: rem 

117 

740 

PRINTCHR$ 11 4 7) CHR$ (158) CHRS (1 7)CHRS(17)CHRS(29)CHRS(2 


9) ; 


: rem 

47 

745 

PRINT"CAP ITALE ATTUALE .: "CHRS (154) 

; AT 

; "LIRE 1 





: rem 

167 

750 

IFAT<1000THEN905 


: rem 

138 

755 

CD=AT 


: rem 

250 

760 

GOTO305 


: rem 

1 10 

765 

VI=P*(C+l) 


: rem 

232 

770 

PRINTCHRS(5)CHR$(17)CHR$ (17); : FORICIT09: 

PRINTCHRS(29) 


; :NEXT 


: rem 

77 

775 

PRINT"HAI VINTO "CHRS(154) ; VI ;"LI RE" 


: rem 

71 

780 

PP=1000:QQ=2 T(1/12):POKEX,15 


:rem 

77 

785 

POKEY+6,0 :POKEY+5,8 


: rem 

m 

790 

FORJ=0TO4 


: rem 

21 

795 

FORU=0TO11 


: rem 

83 

800 

IFU=1ORU= 30RU=60RU= 80RU = 10THEN81 5 


: rem 

1 33 

805 

POKEY+l,PP/2 56 :POKEY,PPAND255 


: rem 

22 

81 0 

POKEY+ 4,0 : POKEY+ 4,3 3 :FORH=lT05 0 :NEXTH 


:rem 

47 

815 

PP=PP*QQ 


:rem 

231 

820 

IFJ=4THEN830 


: rem 

1 74 

825 

NEXTU,J 


: rem 

169 

830 

FORH=1TO 2 0 0 :NEXTH 


: rem 

46 

835 

POKEY+4,0:POKEX,0 


: rem 

0 

840 

REM * COLORA NUMERI VINCENTI * 


: rem 

1 96 

845 

FORF=1TOl0 


: rem 

64 

850 

FORG=7T014STEP7 


: rem 

1 86 

855 

FORK=1T03 


:rem 

24 

860 

IFD (K) ONTHEN865 


: rem 

167 

863 

FORH=1T03:POKE5 5 81 4+10*K+H,G:POKE55854 + 1 0*K+H.G:POKE5 


5894+10*K+H,G:NEXTH 


: rem 

230 

865 

NEXTK,G,F 


: rem 

18 

870 

FORR=1TOl000:NEXTR 


: rem 

117 

875 

CA=CD+VI 


:rem 

1 82 

880 

PRINTCHRS(147)CHR$(158)CHRS(17)CHRS(17)CHRS! 29)CHRS(2 


9); 


: rem 

52 

885 

PRINT"C API TALE ATTUALE.: "CHRS (1 54) 

)CA| 

:"LIRE" 




: rem 

1 55 

890 

CD=CA 


: rem 

233 

895 

IFCD>=5000000THEN980 


: rem 

92 

900 

GOTO305 


: rem 

1 06 

905 

REM * FINE GIOCO * 


:rem 

105 





91 0 PRINTCHRS (144)CHRS (1 7 ) CHRS ( 1 7) CHRS ( 1 7) CHRS ( 2 9) CHR$ ( 29 
) CHRS ( 29) ; : rem 178 

915 PRINT"HAI PERSO TUTTO. SEI AL..."CHRS(30)"VERDE"CHR?( 
154) : rem 236 

920 PRINTCHRS11 8) ; :FORI = lT06:PRINTCHRS(17) ; :NEXT:FOR1 = 1TO 
9:PRINTCHR$(29);:NEXT : rem 240 

925 PRINTCHRS(32)"VUOI GIOCARE ANCORA ?"CHR$(32)CHRS(146) 

: rem 252 

930 PRINTCHRS(17); :FORI = lTOl7:PRINTCHRSI29); :NEXT:PRINT"( 
S/N) " 

:rem 101 

935 POKE4 91 52,238 :POKE49153,32 :POKE49! 54,208 :POKE491 55,96 

:rem 224 

940 FOR1 = 1TO300: SYS491 52 :NEXT:POKECB,RR :rem 230 

945 GETAS:IFA$ = ""THEN94 5 : rem 103 

950 IFA$ = "S"THEN285 : rem 52 

955 IFA$<>"N"THEN945 ; rem 116 

9 60 PRINTCHRS 11 47) CHRS (1 9) CHRS (1 8) ; : FORI = l TOl 0 : PRINTCHRS I 
17); :NEXT : rem 221 

965 FORI=1T09:PRINTCHRS(2 9)NEXT : rem 86 

970 PRINT" C I A O !( 3 SPAZI]"CHRS(146)CHRS(18);OS;CHRS( 
146) :rem 44 

975 FORR=lTOl 500:NEXTR:POKECB,14 :POKECS,6:CLR:PRINTCHRS(1 
4 7):END : rem 65 

980 REM * BANCAROTTA * :rem 184 

985 POKECB,12:POKECS,7 :rem 75 

990 PRINTCHRS(147)CHRS(144)CHRS(18); :FORI = lT05:PRINTCHRS( 
17);:NEXT : rem 227 

995 FORI = 1T06:PRINTCHRS(2 9) ; :NEXT:PRINT"HAI FATTO SALTARE 
IL BANCO" :rem 181 

1 000 PRINTCHRS (1 7)CHR$ (1 7) ; :rem 253 

1003 F0RI=1T09:PRINTCHRS(29);:NEXT:PRINT"ABBIAMO LE CASSE 
VUOTE" : rem 255 

1 00 5 PRINTCHRS 11 7) CHRS ( 1 7) CHRS (1 7) ; iteri 188 

1008 FORI=1T010:PRINTCHRS(29); :NEXT:PRINT"DOBBIAMO RITIRA 
RCI.' 1 :rem 194 

1 010 PRINTCHRS (17)CHR$ (17JCHRS (17) ; :rem 184 

1013 FORI=1T05:PRINTCHRS(2 9) ; :NEXT:PRINT"VINCITA TOTALE : 

";CD;"LIRE" :rem 252 

1015 F0RI = 1T03:PRINTCHRS(17) ; :NEXT:FORI = 1TOl4 :PRINTCHRS(2 
9);:NEXT :rem 136 

1020 PRINT"ADDIO!{ 2 SPAZIt"CHRS(18); OS ;CHRS(146)CHRS(154 
) :rem 147 

1 02 5 FORR=lTO5000:NEXTR:POKECB,14 :POKECS,6:CLR:PRINTCHRS( 
147):END :rem 99 
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I tòte 

Mast Copyright 


Se scrivete software per il C64, si¬ 
curamente avete desiderato qual¬ 
che volta che un vostro program- 
ma non sia listabile da altre perso¬ 
ne Mast Copyright è in grado di 
risolvere questo problema: pro¬ 
tegge contro occhi indiscreti qual¬ 
siasi programma Basic registrato su 
nastro o disco. 

Come funziona? Innanzitutto digi¬ 
tate e salvate (prima di farlo gira¬ 
re!) Mast Copyright. Appena avete 
dato il RUN, vi viene chiesto il no¬ 
me del programma da proteggere; 
dovete poi selezionare nastro o di¬ 
sco, digitandoci oppure 8. Appare 
quindi il messaggio "L PER LOAD": 
a questo punto inserite nel regi¬ 
stratore o nel disk drive il supporto 
magnetico contenente ii program¬ 
ma; fatto dò, premete L per effet¬ 
tuare il caricamento. Successiva¬ 
mente compare la scritta "5 PER 
SAVE"; inserite quindi la cassetta 
o il disco sul quale volete registrare 
il programma protetto e premete S. 
A procedura terminata Mast Copy¬ 
right provvede a resettare la me¬ 
moria del computer, per cui se usa¬ 
te il registratore ricordatevi di pre¬ 


mere il tasto STOP Per verificare 
che tutto sia'andato bene, caricate 
il programma protetto e battete 
LIST; l'unico risultato deve essere 
la linea 

1 sys (2218) 

Se battete RUN, Il programma vie¬ 
ne eseguito normalmente, a parte 
il fatto che viene disabilitato il 
RUN/STOP-RESTORE A questo 
punto non si protranno più esegui¬ 
re neanche i comandi LIST e SA VE. 
L'unico inconveniente è che viene 
disattivata anche la funzione TIME 
(TI, TIS), per cui non è possibile 
proteggere programmi che ne fac¬ 
ciano uso. 

Mast Copyright agisce aggiungen¬ 
do una routine in linguaggio mac¬ 
china, posta all'inizio della RAM 
Basic, al programma da protegge¬ 
re, che viene quindi rilocato spo¬ 
standolo "in avanti". La routine ed 
il programma vengono fusi in un 
blocco unico, che costituisce la 
versione protetta, la quale viene 
salvata aggiungendo il suffisso (O 
al nome originale. 


10 REM-"MAST COPYRIGHT"- :rem 71 

20 DATA 28,8,1,0,158,40,50,50,49,56,41,32,32,32 :rem 243 
30 DATA 32,32,32,32,32,32,32,32,32,32,32,32,0,58:rera 18 
40 DATA 8,2,0,143,32,34,20,20,20,20,20,20,20,20 :rem 200 
50 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20 

:rem 23 

60 DATA 0,89,8,3,0,143,32,34,20,20,20,20,20,20 :rem 168 
70 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20 

:rem 25 
92 










80 DATA 20,20,20,0,0,0,4,0,143,32,34,65,65,65 : rem 125 

90 DATA 234,234,234,234,169,126,141,89,8,169,8,141,90,8 

: rem 1 70 

100 DATA 173,48,3,76,136,8,65,65,65,65,65,34,0,163 


110 DATA 8,5,0,143,32,34,65,65,234,234,234,141,50,3 

:rem 

120 DATA 173,49,3,141,51,3,169,225,141,40,3,173,166,8 

: rem 

130 DATA 141,7,3,96,65,65,34,0,200,8,6,0,153,32 :rem 
140 DATA 34,76,102,8,32,32,32,32,32,32,32,32,32,32 

:rem 

150 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32 

:rem 

160 DATA 147,34,0,21 !,8,7,0,158,54,52,55,51,56,0:rem 
170 DATA 0,0,0,75,0,140,13,160,0,0,75,0 :rem 

180 POKE53281 ,0 :POKE53280,5 :rem 

190 POHE646,5:PRINT"{CLRÌ{RVS(SOFT - -PROGRAMMA 

{ 2 SPAZI}DI{ 2 SPAZI(COPERTURA- - SOFT" :rem 
200 PRINT"QUESTA UTILITY PERMETTE DI PROTEGGERE": rem 
205 PRINT"QUALSIASI PROGRAMMA SCRITTO IN BASIC,":rem 
210 PRINT"RENDENDOLO NON PIU' LISTABILE.":PRINT :rem 
220 PRINT"IL PROGRAMMA PROVVEDE ANCHE AD EFFET-": rem 
230 PRINT"TUARE LA DISABILITAZIONE DELLA FUNZIONE" 

: rem 

240 PRINT"RUN/STOP-RESTORE.":PRINT :rem 

250 PRINT"IL PROGRAMMA PROTETTO AVRA' LO STESSO":rem 


168 

184 

41 

244 

1 24 

114 

44 

78 

243 

142 

81 

7 

220 

134 

159 

23 

241 

237 


255 PRINT"NOME, SEGUITO DAL SUFFISSO (C)- 

260 POKE646,2:PRINT:PRINT" /- 

-/":PRINT : rem 227 

270 POKE646,1 : rem 197 

280 PRINT" INSERISCI I SEGUENTI DATI :" :rem 29 

290 PRINT:POKE646,3 :rem 144 

300 INPUT" [<Q>| NOME DEL PROGRAMMA 1<W>1";N? :rem 28 
310 IFLEN(N$)>140RNS=""THENRUN180 : rem 185 

320 PRINT"(GIU') [<Q>] 1-NASTRO( 3 SPAZI)8-DISCO [<W>]?" 

: rem 132 

330 GETN1S: IFN1$=" "ORNI S< >" 1 " ANDN1 SO" 8"THEN330 : rem 106 
340 N=VAL(Nl$):IFLEN(N$)>140RN$=""THENRUN180 :rem 88 
350 POKE646,1 :PRINT:PRINT" I<Q>] OK - ATTENDERE - * [<W>] 

:r em 174 

360 FORK = l2049TO12270:READCM: POKER,CM:CK=CK+CM:NEXTK 

:rem 15 

370 IFCK<>1 1393THENPRINT"ERRORE NEI DATA": END :rem 8 
380 FORK = l2049TO12270: POKER-10000,PEEK(K):NEXTK :rem 44 


390 PRINT:POKE53281 ,6 :POKE53280,6:POKE646,6 :rem 47 

400 PRINT"(CLRJP043,200:?”CHR$(34)"(WHT)(RVS)L(OFF) PER L 
OAD"CHRS(34)":WA197,6" :rem 0 

410 IFN=8THENPRINT"I 4 SIN):LO"CHR$(34);N$+CHR5(34)",8" 

:r em 162 
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420 IFN=1THENPRINT"{ 4 SIN):LO"CHR$(34);NS+CHR5(34)",1":p 
R1NT:PR1NT:PRINT:PRINT :rem 177 

430 AG$=" (C) " : PRINT" { 5 GIU ' ]P043,1 : ?"CHRS (34 ) '■ (WHT) (RVS) 
S{OFFJ PER SAVE"CHR$(34)": WA197,4” :rem 115 

440 IFN-1THENPRINT"! 8 SIN) : SAVE''CHR$ (34 ) ;N$+AG$+CHR$ (34) 
"<"-N :rem 78 

450 IFN=8THENPRINT"{ 8 SIN):SAVE"CHR$(34)"@0:"N$+AG$+CHR$ 
(34)",";N 

460 PRINT:PRINT:PRINT:PRINT:PRINT"SYS64738" 

510 CLR: POKE1 98,9 

520 POKE631,19:FORI=0TO8:POKE632+I,13:NEXT 
530 END 


: rem 
:rem 
:rem 
:rem 
: rem 


9 

146 

231 

41 

111 



Ecco una versione per il vostro 
Commodore 64 di un popolarissi¬ 
mo e divertente gioco di abilità e 
destrezza. Si tratta di guidare un 
serpente attraverso un campo col¬ 
lezionando il maggior numero di 
bersagli, rappresentati da numeri 
che appaiono e scompaiono ca¬ 
sualmente sullo schermo, evitando 
gli ostacoli che costellano il cam¬ 
po. Il punteggio viene assegnato 
tenendo conto del valore del sin¬ 


golo bersaglio,- ogni volta che il 
serpente va a sbattere, però, si 
perdono 10 punti. 

I tasti da usare per giocare sono i 
seguenti: 

Q per andare in alto,- 
Z per andare in basso; 

P per andare a destra; 

I per andare a sinistra. 

II gioco prevede 5 differenti livelli 
di difficoltà. 


: rem 
: rem 
: rem 
:rem 
:rem 
SPAZI)TEMP 
:rem 99 
:rem 72 


183 
56 
1 98 
1 45 
36 


10 REM SNAKE 
20 GOTO850 
30 REM SET VARIABILI 
40 DIMLO(25) 

50 P=!466:SC=0:CO=0:C=1 

60 D=1 :T=59:GOSUB80:PRINT"(HOMEJPUNTEGGIO 0( 3 
O 60" :GOTO200 
70 REM SET SCHERMO 
80 PRINT"ICLR)";:FORQ = 1TOSK* 300 :A a 10 24+RND(1 )* 1000 :KB=RND 
(1)*15 :IFKB=7THENKB=KB+1 :rem 134 

90 POKEA,170:POKEA+54272,KB:NEXT :rem 168 

100 FORQ = l024T01064:POKEQ,160:POKEQ+54272,0 :NEXT:rem 118 
84 












110 

PRINT"{BLK({RVS}PUNTEGGIO "SC 

:rera 

205 

120 

FORO=1T023:PRINT"{RVS} ";SPC(38|;" ";:NEXT 

:rern 

no 

130 

PRINT"(RVS({ 39 SPAZI}";:CO=0 

: rem 

235 

140 

POKE2023,160:POKE56295,0 

: rem 

30 

150 

FORQ-1T02 5 : READLO(Q) :POKELO(Q) ,160 

: rem 

66 

160 

POKELO(01+54272,(170-T1/7.5:NEXT:RESTORE:LO(1) =P 




:rem 

76 

170 

POKE1298,32 

: rem 

44 

180 

FORZ=LO(25)+lTOLO(25)+28:POKEZ,32:NEXT:REM 

POKEl024+ 


40,32 

: rem 

82 

1 90 

RETURN 

:rem 

122 

200 

POKE53280,5:POKE53281,7 

:rem 

24 3 

210 

TI?-" 000000" 

:rem 

245 

220 

RV= 2 

: rem 

171 

230 

POKEP,160:POKEP+54272,RV 

: rem 

147 

240 

T= 6 0-VAL(TI?) 

:rem 

175 

250 

PRINT"{HOME){RVS}";TAB(14)"TEMPO "T;:IFT<1OTHENPRINT" 


(SIN) " 

: rem 

132 

260 

IFT<OTHEN580 

: rem 

179 

270 

IFPEEK(N)<>160THENPOKEN+54 272,RND( 1 ) *8 

:rem 

204 

280 

GOSUB370 

: rem 

1 80 

290 

P=P+D:C=C+1 : IFP-NANDPEEK (N ) O32THEN490 

:rem 

38 

300 

IFC=26THENC=1 

: rem 

234 

310 

IFPEEK(P)>128THEN530 

: rem 

137 

320 

POKELO(C),32 : LO(CI=P 

: rem 

122 

330 

IFCO=0ANDRND(1)>- 3 5TH ENN = 0 : GOTO 420 

: rem 

36 

340 

IFCO=1ANDRND(1)>.99-SKTHENPOKEP+54 2 72,RV:GOTO470 




:rem 

199 

350 

REM INPUT MOVIMENTI 

:rera 

196 

360 

GOTO 220 

: rem 

102 

370 

GETAS: IFA$ = "Q"ANDD < > 4 0THEND =-4 0 

: rem 

21 

380 

IFAS = "I " ANDDO1 THEND=- 1 

: rem 

41 

390 

IFA$ = "P"ANDD<>-1 THEND-1 

: rem 

49 

400 

1FAS = "Z" ANDDO-40THEND-40 

: rem 

153 

410 

RETURN 

: rem 

117 

420 

N=1 024 + INT 1RND(1 )*500) : IFPEEK (N) O32THEN420 

: rem 

165 

430 

IFN-PTHEN420 

:rem 

198 

440 

M=INT ( RND(11*9)+49:POKEN,M+128:POKEN+54272,4 

: rem 

251 

450 

TS=TI$ 

:rem 

15 

460 

TI?=T$:CO=l:GOTO220 

: rem 

ai 

470 

POKEN,32:N=0:CO=0 

:rem 

215 

480 

GOTO220 

: rem 

105 

490 

V=PEEK(P)-176:POKEP+54 27 2,1 :IFC = 26THENC = 1 

: rem 

151 

500 

FORQ =1TOV:SC-SC +1 :PRINT"{HOME)(RVS1PUNTEGGIO "SC: 

POKE 


P,PEEK(P)-1 

: rem 

52 

510 

NEXT 

: rem 

213 

520 

POKEP,160:POKEP+54272,OiPOKEN,32:N=1066:POKELO(C) 

,32: 


LO(C)=P:CO=0:GOTO300 

:rem 

85 

530 

CA-CA+1:FS-TIS 

: rem 

219 

540 

FORPQ-1T025: LO(PQ1= 0:NEXT:C*1:CO=0:P=1 437 :POKE1 98 

,0:1 


FSC<1OTHENSC-O 

: rem 

149 


25 



550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

81 0 
820 
830 

840 

850 

860 

870 

880 

890 

900 


IFSC>9THENSC=SC-10 :rem 92 

CO=0:TI$=FS : rem 60 

GOSUB80:D=1:P=1437:GOTO220 trem 13 

IFSOl 5+ ( 1 /SK) ANDFG=0THENFG=1 : GOTO800 :rem 226 

REM FINE DEL GIOCO :rem 234 

PRINT"(CLR}{ 15 DES}[RVSlFINE GIOCO{OFFPOKE53280,1 
4 :POKE53281 , 1 trem 169 

PRINT"{GIU'} HAI REALI ZZATO"SC"PUNTI " :rem 58 

PRINT"{GIU') AL LIVELLO "SK*50 :cen 75 

IFCA=0THENPRINT" {GIU ' } E NON TI SEI MAI SCONTRATOMI" 
: GOTO650 :rem 93 

PRINT" {GIU'J E TI SEI SCONTRATOLA"VOLTE" ; : IFCA=1 THEN 
PRINT"{SINÌA"; : rem 93 

PRINT"{GIU 1 }" : rem 125 

IFSC< PEEK(820+50*SK)THEN690 trem 51 

POKE82 0+ 50*SK , SC:PRINT"{GIU'} NUOVO RECORDrem 32 
PRINT"{ 2 GIU'} VINCI UN'ALTRA PARTITA!FORX=lT05000 
:NEXT:CA=0tGOTO50 trem 201 

PRINT"{GIU'} PUNTEGGIO MASSIMO"PEEK(820+SK*50):PRINT" 
{GIU'} AL LIVELLO"SK*50 : rem 33 

PRINT"{ 2 GIU'} PREMI {RVS}G{OFF} PER GIOCARE" 

: rem 

PRINT"{GIU'}{ 7 SPAZI}{RVS}S{OFF} PER SMETTERE" 

: rem 

GETCS:IFC$ = "G"THEN750 ! rem 

IFC5="S"THENPRINT"{ 2 GIU'}{RVS}CIAO!": END : rem 

GOTO720 : rem 

PRINT"{ 2 GIU'}{RVS}{ 4 DES} SCEGLI SECONDO LA TUA AB 
ILITA' "tPOKEl98,OtCLR :rem 109 

PRINT"{GIU'}{ 11 DESJLIVELLO: DA 1 A 5" :rem 
PRINT"{GIU'}{ 9 DES}(1 E' IL PIU’ FACILE)" :rem 
GETAS : IFA5 < 11 1 "ORAS > " 5" THEN 78 0 : r em 

SK=VAL(A$)/50:GOTO40 :rem 

FORZ=1T04:PRINT"{HOME}{ 10 GIU'}{ 14 DES}TEMPO EXTRA! 
" :FORX = lTO750: NEXT treni 69 

PRINT" {HOME} { 10 GIU'H 14 DES} { 12 SPAZI}" treni 189 

FORX = lTO750:NEXT:NEXTt TI$="000030" trem 23 

FORZ=1T025:POKELO(Z) ,160 :POKELO(Z)+54272,4 :NEXT:T=60- 
VAL(TIS):GOTO220 trem 215 

REM ISTRUZIONI trem 160 

PRINT"{CLR}{WHT}{RVS} S N A K E ":POKE53280,6 :POKE532 
81,2:PRINTCHR?(8):PRINTCHR?T(14) :rem 112 

PRINT" { 2 GIU’H 2 SPAZI JjSTRUZIONI : " trem 107 

PRINT"{GIU'} LO SCOPO DEL GIOCO E' INSEGUIRE IL 

{ 6 spazi Inumerò lampeggiante"; trem 145 

PRINT" SENZA URTARE CONTRO GLI OSTACOLI 0 CONTRO LA P 
ROPRIA CODA." trem 231 

PRINT" {GIU'} NELLO SCONTRO SI PERDONO 10 PUNTI." 


83 

65 

163 

230 

109 


59 

193 

78 

127 


: rem 

PRINT"{ 14 SIN}{ 3 GIU'}{RVS)PREMI UN TASTO{OFF} 
{GIU'}":POKE198,0 trem 


119 


122 




910 GETA$:IFA$=""THEN9!0 ;re m 87 

920 PRINT"{CLR](RVSJ S N A K E " ;r em 3 

930 PRINT" { 2 GIU 1 ) ( 2 SPAZI (ISTRUZIONI:" iteli 105 

940 PRINT"fGIU 1 ( USA I SEGUENTI TASTI:" :rem 84 

950 PRINT"{ 2 GIU 1 ){ 12 SPAZI}{RVSiQ(OPP) PER ANDARE IN 

ALT0 " :rem 95 

960 PRINT"{GIU'1{ 12 SPAZI){RVS)P(OFF) PER ANDARE A DEST 
B*" :rem IT 9 

970 PRINT" {GIU'} { 12 SPAZI ] {RVS }I_{OFF} PER ANDARE A SIN! 

STRA " : rem 47 

980 PRINT"{GIU 1 J{ 12 SPAZI)[RVS)Z{OFF( PER ANDARE IN BA 
{ 2 S)o" :rem 34 

990 PRINT"{ 2 GIU') CON UN BUON PUNTEGGIO SI OTTIENE DEL 

{ 4 SPAZI(TEMPO SUPPLEMENTARE!!" :rem 179 

1000 PRINT") 3 GIU'}{ 14 SIN)(RVS)PREMI UN TASTO{OFF}":PO 
KEl98,0 :cem 145 

1010 GETA5:IFA$=""THEN1010 ;re ra 167 

1020 PRINT"{CLR}":GOTO750 !re m 54 

1030 DATA 1298,1299,1399,1398,1397,1297,1273 irei 174 

1 040 DATA 1274,1275,1276,1230,1400,1883 : rem 135 

1050 DATA 1882,1881,1880,1879,1877,1296,1272,1432,1433,14 
34,1435,1436 :rem ■, 32 


Le tre vette 


Sulle vette di tre montagne ci sono 
altrettante bombe. Col vostro di¬ 
sco volante dovete far brillare del¬ 
le mine, situate all'interno di ognu¬ 
na delle montagne, abbattendo i 
diaframmi che dividono le caverne 
sotterranee,- in tal modo dovrete 
far precipitare la bomba il più in 
basso possibile. Cadendo essa 
esplode e distrugge la parte sopra¬ 
stante di montagna,- guadagnate 
allora un punteggio proporzionale 
alla quantità di roccia saltata in 



aria. Il gioco termina se urtate con¬ 
tro le pareti delle montagne. Nel 
caso invece che riusciate a far 
esplodere con successo tutte le 
bombe, vi troverete di fronte ad 
altre tre montagne. Per muovervi 
usate i tasti Q (su), Z (giù), I (sini¬ 
stra) e P (destra); la barra spaziatri¬ 
ce serve invece, quando vi trovate 
sufficientemente vicini alle mine, 
ad azionare i detonatori. 


10 POKE53280,0:POKE53281,0:PRINT"{CLR){ 2 GIU’}"TAB(13)" 
{RVSJIYEL} LE TRE VETTE ":PRINT"{ 9 GIU'}" :rera 158 
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20 V=53248:POKEV£21,0 :POKEV+16,0:POKE2040,192 :POKE2041 ,1 9 
3: POKEV+39,6 :rero 249 

30 POKEV+40,0 : FORICI2288T012350 :READQ:POKEI,Q:NEXT 


40 FORI=12352TO1 2357 :POKEI,255:NEXT 
50 FORI=12358TO12414:POKEI,0:NEXT 
60 FORI=49152T0492 87 :READQ:POKEI, Q :NEXT 
70 VL=54296:W = 54276:A= 54 277:HI = 54273:LW= 54 272 
80 FORI=LWTOLW+24:POKEI,0 :NEXT 

90 PRINT"{ 3 GIU')! 6 SPAZI)PER INIZIARE PREMI 


: rem 108 

:rem 102 
:cem 251 
:cem 216 

:rem 18 
:rem 214 
UN TASTO" 


:cem 90 

100 GETX$: IFX$ = ""THEN100 :rem 115 

110 POKE53281,12:R=R+1:PRINT"(CLR)( 5 GIU ' ]( 9 SPAZI) 

{RED}Q{ 14 SPAZI}Q( 14 SPAZI)Q|<2>]"; :cem 28 

120 POKE53280,9 :cem 41 

130 PRINT"{ 8 SPAZI}{RVS J E [<*>] [OFF){ 12 SPAZl)(RVS)£ 

[<*>]{OFF){ 12 SPAZlI(RVS)£ (OFF)"; :rem 69 

140 PRINT" ( 8 SPAZIHRVS) (OFF)TrED)+1<2>1(RVS} (OFF) 

( 12 SPAZI){RVS) (OFF)(RED)+[<2>J(RVS) (OFF) 

[ 12 SPAZI)(RVS) (OFF)(RED)+[<2>]"; :rem 105 

150 PRINT"( 8 SPAZI)(RVS J( 3 SPAZl)(OFF)( 12 SPAZl)(RVS) 

( 3 SPAZI ) [OFF) { 12 SPAZI }{RVS}.{ 2 SPAZI ) (OFF)" ; 


:rem 142 


160 PRINT"( 7 SPAZI)(RVS)E( 3 SPAZI)[<*>1 (OFF 1 

( 10 SPAZI)(RVS)£( 3 SPAZI)(<*>)(OFF)( 10 SPAZIHRVS) 
£( 2 SPAZlHOFF}"; : cem 72 

170 PRINT"! 7 SPAZI)(RVS) (OFF) (RED)+[<2>) (RVS) (OFF) 

( 10 SPAZI)(RVS} (OFF) (RED)+[<2>) (RVS) (OFF) 

( 10 SPAZIJ(RVS) (OFF) (RED)+(<2>1"; :cem 108 

180 PRINT"! 7 SPAZI)(RVS)( 5 SPAZI)(OFF)( 10 SPAZI)(RVS) 

( 5 SPAZl)(OFF)( 10 SPAZI){RVS j( 3 SPAZI)(OFF)"; 


: rem 145 

190 PRINT"! 6 SPAZI}(RVS)£( 5 SPAZIH<*>)(OFF)1 8 SPAZI) 
(RVS)E( 5 SPAZI)1<*>JT0FF)( 8 SPAZl)(RVS)£( 3 SPAZI) 
(OFF)"; :cem 75 

200 PRINT"! 6 SPAZll(RVS) (OFF)( 2 SPAZI)(RED)+[<2>] 

( 2 SPAZI}(RVS) (OFF)l 8 SPAZI)(RVS) (OFF)! 2 SPAZI) 

( RED ) + [ < 2 > ) { 2 SPAZIHRVS) (OFF)( 8 SPAZIHRVS) (OFF) 
{ 2 SPAZI)(RED)+[<2>]"; :cem 102 

210 PRINT"! 6 SPAZI HRVSH 7 SPAZI) (OFF) ( 8 SPAZI )(RVS] 

( 7 SPAZI HOFFll 8 SPAZI HRVSH 4 SPAZI ) (OFF )" ; 


:cem 139 

220 PRINT"! 5 SPAZI)(RVS)£( 7 SPAZI)[<*>)(OFF)( 6 SPAZI) 
(RVSU( 7 SPAZI ) (<*»T0FFH 6 SPAZI)(RVS)£( 4 SPAZI) 
(OFF)"; : rem 69 

230 PRINT" ( 5 SPAZIHRVS) (OFF)! 3 SPAZI ]( RED )+ [<2> ] 

( 3 SPAZIHRVS) (OFF)( 6 SPAZIHRVS) (OFF)lDESH 
1 2 SPAZI ) ( RED ) + [ < 2> ] ( 3 SPAZIHRVS) (OFF)( 6 SPAZI) 
(RVS) (OFF){ 2 SPAZI}(RED) +[<2>]"; :rem 134 

240 PRINT"( 5 SPAZI ) (RVS) ( 9 SPAZI)(OFF)( 6 SPAZIHRVS) 

( 9 SPAZI)(OFF)( 6 SPAZI)(RVS){ 5 SPAZI)(OFF)"; 


:rem 142 


28 




250 PRINT"[ 4 SPAZIJ{RVS} £ { 9 SPAZI}[<*>](OFFl1 4 SPAZII 
{RVS)£{ 9 SPAZI) [<*>]T0FF)1 4 SPAZI){RVS)£{ 5 SPAZI) 
{OFF}"; : rem 72 

260 PRINT" { 4 SPAZIllRVS) {OFF){ 4 SPAZI)(RED)+{<2>) 

{ 4 SPAZI){RVS) {OFF}{ 4 SPAZI){RVS) {OFF){ 4 SPAZI) 

{RED}+(<2>]{ 4 SPAZI){RVS) (OFF]{ 4 SPAZIllRVS) {OFF) 
{ 4 SPAZI){RED}+[<2>)"; : rem 108 

270 PRINT"{ 4 SPAZI){RVS){ 11 SPAZI){OFF){ 4 SPAZIllRVS) 

{ 11 SPAZI}{OFF){ 4 SPAZI){RVS){ 6 SPAZI)(OFF)"; 

: rem 14 5 

280 PRINT" {RVS) [<*>] (OFF) { 2 SPAZI ) (RVS) £ {OFF) 

1 4 SPAZI}{RED ì +[<2>] ( 4 SPAZI)(RVS) [<*>] {OFF) 

{ 2 SPAZl){RVS)£ (OFF){ 4 SPAZI){RED)+[<2>] 

{ 4 SPAZI)(RVS) {<*>]{OFF){ 2 SPAZI){RVS)£ (OFF) 

{ 4 SPAZI} ( RED )+I<2>]" ; nera 170 

290 PRINT"{RVS){ 40 SPAZI){OFF)" :rem 16 

300 GOSEJB840 : POKEV ,25: POKEV+1,55: POKEV+21 ,1 : POKEV+1 6,0 

nem 9 

31 0 DB(1 ,1 ) =1233:DB(2,1 ) =1 248-.DB (3,1 ) =1263 :rem 85 

320 POKEV+31,0 ; rem 5 

330 SYS (49152) :IF PEEK(179)=1 THEN GOSUB400 :rem 124 
34 0 LM=3*R:IFRND(1)* 100<LMTHENI = INT(RND(1) *3+1 ) :POKEl78,1 

:r em 10 5 

350 IFPEEK(1 273)=32ANDPEEK(1 233)<>32THENBD = 1 :GOTO560 

:rem 46 

360 IFPEEK(1 28 8)* 32ANDPEEK(1248)<>32THENBD=2:GOTO560 

:rem 60 

370 IFPEEK(1 303)=32ANDPEEK(1 263)<>32THENBD-3: GOTO 560 

nera 47 

380 IF (PEEK ( V+31 ) ANDl ) =0THEN330 nera 12 

390 GOTO710 : rem 109 

400 XP-PEEK (V) + 256* (PEEK ( V+ì 6 ) ANDl ) +1 6 nera 124 

410 IFXP5255THENPOKEV+16,PEEK(V+16)OR2:POKEV+2,XP-256:GOT 
0430 nera 13 

420 POKEV+1 6 , PEEK (V+1 6 ) AND253 : POKEV+2 ,XP nem 148 

430 POKEV+3,PEEK (V+1 ) + 5: POKEV+21,3 nera 218 

440 RW=INT((PEEK(V+3)-54)/8):C = INT(XP/8): 1 = 1024 + 40*RW+C:K 
L=PEEK(I) , nem 91 

450 IFPEEK(I)=32ANDPEEK(I-1)=160THENGOSUB480:GOTO470 

:rem 166 

460 IFPEEK(I) = 43ANDPEEK (I -1 ) = 1 60THENGOSUB480 nem 155 

470 POKEV+21 ,1 : RETURN nem 37 

480 IFC< 1 0THENC = 9 : GOTO510 nem 252 

490 IFC<25THENC = 24:GOTO510 nem 48 

500 C=39 nem 129 

510 POKEVL,15:POKELN,220:POKEHI,68:POKEW,129:POKEA,l5 

nem 29 

520 POKE984+40*RW+C,32 nem 204 

530 POKE1 024 + 40 + RW+C,32 nem 239 

540 POKE1064 + 40*RW+C,32 nem 244 

550 FORTM=l TO10 :NEXT:POKEA,0 :POKEW,0: RETURN :rem 73 

29 




560 LV=0 :tem 170 

570 POKEDB(BD,1) , 3 2 : DB (BD , 1 ) =DB (BD , 1 )+40 :IFPEEK(DB(BD,1) ) 
O32THEN590 :cem 53 

580 POKEDB(BD,1) ,81 :POKEDB(BD,1 )+54272,2 :LV=LV+1:SC=SC+LV 
:GOSUB840: GOTO570 :tem 183 

590 POKEVL.l5:POKEW,129:POKEA,15:POKELN,200:IFBD= 3THEN670 

:rem 26 

600 IFBD=1THENSP=1264:GOTO620 :rem 0 

610 SP=1279 :rem 74 

620 FORI*SP+40*LVTOSPSTEP-40 :FORJ = 4TO14 :rem 250 

630 POKEI+J,32 :POKE53281 ,J:POKEHI,INT(RND(1)* 20+2) :NEXT:N 
EXT ' * :rem 156 

640 POKE53281 ,12:POKEVL,0 :rem 194 

650 IFPEEK(1 233)=32ANDPEEK(1 248)=32ANDPEEK( 1 263)=32THEN1 1 

0 ■ :rem 61 

660 GOTO330 :rem 107 

670 FORI = 1298+40+LVT01298STEP-40:FORJ = 0TO6 :rem 46 

680 POKEI+J,32 :POKE53281 ,J:POKEHI,INT(RND(1 ) *20 + 2): NEXT: N 
EXT :rem 161 

690 POKE53281,12:POKEVL,0 :rem 199 

700 GOTO650 itera 107 

710 FORI=LWTOLW + 24:POKEI,0:NEXT :rem 6 

720 FORI = l5TOOSTEP-1:POKEI2288+INT(RND( 1 )*60),0: POKEl 2288 
+INT(RND(1)*60),1 :rem 40 

730 POKEVL.l:POKEW,129:POKEA,l5:POKEHI,40 :POKELW,200:NEXT 

:r em 113 

740 POKEV+2Ì,0 :rem 10 

750 PRINT"(CLR){CXN} " ;:POKE53281,0:POKE53280, 0 :rem 105 

760 PRINT"! 15 SPAZI[FINE GIOCO! 9 GIU’)" :rem 

770 PRINT"! 8 SPAZI)IL TUO PUNTEGGIO E;SC :rem 

780 PRINT"! 3 GIU 1 ){PUR}{ 10 SPAZllPREMI (RVS)G(OFF) PER 

GIOCARE" :rem 136 

790 PRINT"!GIU‘)l 16 SPAZI)(RVS}S[OFF) PER SMETTERE 
( 2 GIU’ {" irei» 

800 GETX5:IFX5=""THEN800 :rem 

810 IFXS="G"THENRUN :rem 

820 IFXS®"S"THENEND :rem 

830 GOTO800 :rem 

840 PRINT" iHOME) 1 24 GIU’UBLU)! 13 SPAZI } PUNTEGGIO : " ; SC ; 

: r em 47 

850 RETURN :rem 125 

860 DATA0,28,0,0,62,0,0,127,0,0,201,0,0,201,0,0,255,0,31, 
255,248,63,255,252 :rem 86 

870 DATAI 27,2 55,2 54,255,2 55,255,127,2 55,2 54,63,2 55,2 52,31 
,255,248,7,255,224 :rem 194 

880 DATA7,255,224,1,255,128,0,255,0,0,0,0,0,0,0,0,0,0,0,0 
,0 :rem 57 

890 DATAI 65,1 97,133,180,16 9,0,133,179,165,1 80,201 ,60,208, 
4,1 69,1 ,1 33,1 79,1 65 :rem 233 

900 DATAI 80,201,62,208,4,169,1 ,133,178,165,180,201,1 2,208 
,4,169,2,133,178,165 ite» 255 


154 

235 


235 
129 
1 44 
127 
1 08 
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910 DATAI 80,201 ,33,208,4,169,3,133,178,165,180,201 ,41 ,208 
,4,169,4,133,178,165 :rem 4 

920 DATAI 78,201,1 ,208,10,173,1 ,208,206,1,208,206,1,208,96 
,201,2,208,10,1 73,1 : rem 171 

930 DATA208,238,1 ,208,238,1 ,208,96,201,3,208,22,206,0, 208 
,206,0,208,173,0,208 :rem 236 

940 DATA201,254,144,8,173,16,208,41,254,141,16,208,96,238 
,0,208,238,0,208,173 :cem 5 

950 DATAO,208,201,2,176,8,173,16,208,9,1,141,16,208,96 

: rem 145 


EIN EDICOLA 
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